context("canvasXpress Web Charts - Heatmap")


test_that("cXheatmap1", {
    check_ui_test(cXheatmap1())
})

test_that("cXheatmap2", {
    check_ui_test(cXheatmap2())
})

test_that("cXheatmap3", {
    check_ui_test(cXheatmap3())
})

test_that("cXheatmap4", {
    check_ui_test(cXheatmap4())
})

test_that("cXheatmap5", {
    check_ui_test(cXheatmap5())
})

test_that("cXheatmap6", {
    check_ui_test(cXheatmap6())
})

test_that("cXheatmap7", {
    check_ui_test(cXheatmap7())
})

test_that("cXheatmap8", {
    check_ui_test(cXheatmap8())
})

test_that("cXheatmap9", {
    check_ui_test(cXheatmap9())
})

test_that("cXheatmap10", {
    check_ui_test(cXheatmap10())
})

test_that("cXheatmap11", {
    check_ui_test(cXheatmap11())
})

test_that("cXheatmap12", {
    check_ui_test(cXheatmap12())

    message('Middle section very small at default height - working as designed')
    warning("Boolean overlay looks different in R than on the CX website, test is missing the following parm: smpOverlayProperties=list('Boolean' = list('type'='Boolean'))")
})

